Import data
ffi_total <- readRDS("01_data/processed/ffi_total.rds")
Format data
ffi_tidy <- ffi_total %>%
drop_na(age, gender) %>%
pivot_longer(
cols = c(pf_recent, pv_recent),
names_to = "typeofplasmodium",
values_to = "seropositive"
) %>%
mutate(
seropositive = case_when(
seropositive == "Positive" ~ 1,
TRUE ~ 0
)
)
ffi_tidy %>%
rmarkdown::paged_table()